<!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
<stack>
<name>in.1</name>
<id>-1</id>
<cardCount>1</cardCount>
<cardID>4482</cardID>
<listID>3044</listID>
<cantModify><false /></cantModify>
<cantDelete><true /></cantDelete>
<cantAbort><false /></cantAbort>
<cardSize>
<width>416</width>
<height>240</height>
</cardSize>
<script>-- on openbackground --merryxmas-- on closebackground --merryxmas-- on idle --merryxmas-- ••• NE PAS MODIFIER LES 3 LIGNES PRECEDENTES •••-- ••• CECI EST LE VACCIN CONTRE LE VIRUS “MERRYXMAS” •••-------------------------------------------------------------------on openStackglobal PrevUseLevput "À propos" into theWindowif videoDepth() ≤2 then put "À proposNB" into theWindowpicture theWindow,resource,shadow,false,8show window theWindow at "0,-20"put the userlevel into PrevUseLevrepeat 2play "4"end repeatstackConfigAddColor installopenCard theWindowend openStackon openCard theWindowSend colorMe to this cardif there is a window theWindow then close window theWindowpass openCardend openCardon closeCardlock screenpass closeCardend closeCardon colorMeAddColor colorCard,stamp,30end colorMeon suspend stackclearConfigend suspend stackon resumeStackstackConfigend resumeStackon closeStackput empty into WListAddColor removeclearConfigpass closeStackend closeStackon stackConfigset userlevel to 5reset menuBarrepeat with i = 14 down to 5delete menuItem i of menu 2delete menuItem i of menu 4end repeatdelete menuItem 1 of menu 2repeat with i = 8 down to 3if i ≠ 4 then delete menu iend repeatif there is a menu "Color" then delete menu "Color"set cantDelete of this stack to trueset cantAbort of this stack to falseset cantPeek of this stack to trueset blindTyping to falseset userLevel to 1set cantModify of this stack to trueend stackConfigon clearConfigglobal PrevUseLevset userlevel to PrevUseLevset cantModify of this stack to falsereset menuBarend clearConfigon doMenu x,yif y = "File" thenif x = "Protect Stack..." or x = "Delete Stack..." then exit doMenuelse pass doMenuelse if x contains "Info" then exit doMenuelse pass doMenuend doMenufunction videoDepthget screenRect()put (item 3 of it )-(item 1 of it) into widthScreenif widthScreen ≤ 512 then return 0get getMode()if item 1 of screenRect() = 0 then put item 2 of line 1 of it into whatDepthelse repeat with i = 2 to number of lines of itif item 6 of it = widthScreen then put item 2 of line i of it into whatDepthend repeatif whatDepth is not in "1,2,4,8,16,32" then put 0 into whatDepthreturn whatDepthend videoDepth</script>
